From 7872ee4d0a1d7c92470b58049ff7201eae240b56 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 30 Mar 1993 19:42:10 +0000 Subject: [PATCH] (isearch-done): Customize the message about mark. --- lisp/isearch.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 1abd4c56a0a..976ba9daf7e 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte -;; |$Date: 1993/03/21 05:50:17 $|$Revision: 1.27 $ +;; |$Date: 1993/03/30 19:38:34 $|$Revision: 1.28 $ ;; This file is not yet part of GNU Emacs, but it is based almost ;; entirely on isearch.el which is part of GNU Emacs. @@ -92,8 +92,11 @@ ;;;==================================================================== ;;; Change History -;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch.el,v 1.27 1993/03/21 05:50:17 jimb Exp rms $ +;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch.el,v 1.28 1993/03/30 19:38:34 rms Exp rms $ ;;; $Log: isearch.el,v $ +; Revision 1.28 1993/03/30 19:38:34 rms +; (isearch-mode-map): Delete the binding for C-h. +; ; Revision 1.27 1993/03/21 05:50:17 jimb ; * isearch.el (isearch-switch-frame-handler): Call ; handle-switch-frame instead of select-frame; it has been renamed. @@ -660,7 +663,10 @@ is treated as a regexp. See \\[isearch-forward] for more info." ;; If there was movement, mark the starting position. ;; Maybe should test difference between and set mark iff > threshold. (if (/= (point) isearch-opoint) - (push-mark isearch-opoint) + (progn + (push-mark isearch-opoint t) + (or executing-macro (> (minibuffer-depth) 0) + (message "Mark saved where search started"))) ;; (message "") why is this needed? ) (if isearch-small-window -- 2.30.2